home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / crashmail / install < prev    next >
Encoding:
Text File  |  1995-07-17  |  5.8 KB  |  285 lines
  1. ; Installation script for CrashMail
  2.  
  3. (set reqtoolslib "libs/reqtools.library")
  4. (set gtlayoutlib "libs/gtlayout.library")
  5.  
  6. ; make sure we are running under at least Kickstart 2.04
  7.  
  8. (if (< (/ (getversion) 65536) 37)
  9. (
  10.     (abort "Sorry, you need at least Workbench 2.04 to use CrashMail")
  11. ))
  12.  
  13. (complete 0)
  14.  
  15. (message "\nWelcome to the CrashMail installation script.\n\n"
  16.          "CrashMail is a mail processing utility ('tosser') "
  17.          "for FidoNet and all other nets using the same technology.\n\n"
  18.          "Please read CrashMail.guide for more information.\n\n"
  19.          "CrashMail is Copyright 1995 Johan Billing.\n\n")
  20.  
  21.  
  22. (copylib
  23.     (prompt "Copying gtlayout.library...")
  24.     (help "CrashPrefs needs this library for the "
  25.           "user interface. If you don't install "
  26.           "gtlayout.library, you will not be able "
  27.           "to use CrashPrefs. ")
  28.     (source gtlayoutlib)
  29.     (dest "Libs:")
  30.     (confirm)
  31. )
  32.  
  33. (complete 12)
  34.  
  35. (copylib
  36.     (prompt "Copying reqtools.library...\n\n"
  37.             "Only the main library file is included in the CrashMail archive. "
  38.             "If you want to use ReqTools in your local language or use the "
  39.             "ReqTools settings program, you need to get the complete ReqTools "
  40.             "archive.")
  41.  
  42.     (help "CrashPrefs needs this library for the "
  43.           "requesters If you don't install "
  44.           "reqtools.library, you will not be able "
  45.           "to use CrashPrefs. ")
  46.  
  47.     (source reqtoolslib)
  48.     (dest "Libs:")
  49.     (confirm)
  50. )
  51.  
  52. (complete 25)
  53.  
  54. ; Ask for destination directory
  55.  
  56. (set destdir
  57.    (askdir
  58.       (prompt "Please select the directory where you want to install CrashMail. "
  59.                "This script will not create a directory, the files will be put "
  60.                "in the directory that you select here ")
  61.       (help "")
  62.       (default "RAM:")
  63.    )
  64. )
  65.  
  66. (set @default-dest destdir)
  67.  
  68. ; Copy the main files
  69.  
  70. (set prgbitmap
  71.   (askoptions
  72.     (prompt "Which parts of the archive do you want to copy?")
  73.     (help   "Just select the files you want to copy.\n\n"
  74.             "CrashMail          Main program\n"
  75.             "CrashMail.guide    Documentation\n"
  76.             "CrashPrefs         Settings program\n"
  77.             "AreaFixHelp.doc    Helpfile for the AreaFix\n"
  78.             "StatsFormat.doc    Format of the statistics file\n")
  79.  
  80.     (choices "CrashMail"
  81.              "CrashMail.guide"
  82.              "CrashPrefs"
  83.              "AreaFixHelp.doc"
  84.              "StatsFormat.doc")
  85.  
  86.     (default 31)
  87.   )
  88. )
  89.  
  90. (if (BITAND prgbitmap 1)
  91.    (copyfiles
  92.       (prompt "")
  93.       (help "")
  94.        (source "CrashMail")
  95.        (dest destdir)
  96.        (infos)
  97.    )
  98. )
  99.  
  100. (if (BITAND prgbitmap 2)
  101.    (copyfiles
  102.       (prompt "")
  103.       (help "")
  104.        (source "CrashMail.guide")
  105.        (dest destdir)
  106.        (infos)
  107.    )
  108. )
  109.  
  110. (if (BITAND prgbitmap 4)
  111.    (copyfiles
  112.       (prompt "")
  113.       (help "")
  114.        (source "CrashPrefs")
  115.        (dest destdir)
  116.        (infos)
  117.    )
  118. )
  119.  
  120. (if (BITAND prgbitmap 8)
  121.    (copyfiles
  122.       (prompt "")
  123.       (help "")
  124.        (source "AreafixHelp.doc")
  125.        (dest destdir)
  126.        (infos)
  127.    )
  128. )
  129.  
  130. (if (BITAND prgbitmap 16)
  131.    (copyfiles
  132.       (prompt "")
  133.       (help "")
  134.        (source "StatsFormat.doc")
  135.        (dest destdir)
  136.        (infos)
  137.    )
  138. )
  139.  
  140. (complete 50)
  141.  
  142. ; Copy the CrashMail tools
  143.  
  144. (set prgbitmap
  145.   (askoptions
  146.     (prompt "Which parts of the archive do you want to copy?")
  147.     (help   "Just select the files you want to copy.\n\n"
  148.             "CrashForward       Makes forward lists\n"
  149.             "CrashHW            Shows and updates highwater marks\n"
  150.             "CrashMaint         Maintains *.msg areas\n"
  151.             "CrashStats         Shows statistics file\n"
  152.             "CrashWrite         Generates messages\n")
  153.  
  154.     (choices "CrashForward"
  155.              "CrashHW"
  156.              "CrashMaint"
  157.              "CrashStats"
  158.              "CrashWrite")
  159.  
  160.     (default 31)
  161.   )
  162. )
  163.  
  164. (if (BITAND prgbitmap 1)
  165.    (copyfiles
  166.       (prompt "")
  167.       (help "")
  168.        (source "CrashForward")
  169.        (dest destdir)
  170.        (infos)
  171.    )
  172. )
  173.  
  174. (if (BITAND prgbitmap 2)
  175.    (copyfiles
  176.       (prompt "")
  177.       (help "")
  178.        (source "CrashHW")
  179.        (dest destdir)
  180.        (infos)
  181.    )
  182. )
  183.  
  184. (if (BITAND prgbitmap 4)
  185.    (copyfiles
  186.       (prompt "")
  187.       (help "")
  188.        (source "CrashMaint")
  189.        (dest destdir)
  190.        (infos)
  191.    )
  192. )
  193.  
  194. (if (BITAND prgbitmap 8)
  195.    (copyfiles
  196.       (prompt "")
  197.       (help "")
  198.        (source "CrashStats")
  199.        (dest destdir)
  200.        (infos)
  201.    )
  202. )
  203.  
  204. (if (BITAND prgbitmap 16)
  205.    (copyfiles
  206.       (prompt "")
  207.       (help "")
  208.        (source "CrashWrite")
  209.        (dest destdir)
  210.        (infos)
  211.    )
  212. )
  213.  
  214. (complete 75)
  215.  
  216. ; Copy the tools drawer
  217.  
  218. (set prgbitmap
  219.   (askoptions
  220.     (prompt "Which additional tools do you want to copy?")
  221.     (help   "Just select the files you want to copy.\n\n"
  222.             "ExistsMail         Checks for mail in scripts\n"
  223.             "ExistsTick         Checks for *.tic files in scripts\n"
  224.             "CheckSpace10.lha   Checks for disk space in scripts\n")
  225.  
  226.     (choices "ExistsMail"
  227.              "ExistsTick"
  228.              "CheckSpace10.lha")
  229.  
  230.     (default 7)
  231.   )
  232. )
  233.  
  234. (if (BITAND prgbitmap 1)
  235.    (copyfiles
  236.       (prompt "")
  237.       (help "")
  238.        (source "tools/ExistsMail")
  239.        (dest (tackon destdir "Tools") )
  240.        (infos)
  241.    )
  242. )
  243.  
  244. (if (BITAND prgbitmap 2)
  245.    (copyfiles
  246.       (prompt "")
  247.       (help "")
  248.        (source "tools/ExistsTick")
  249.        (dest (tackon destdir "Tools") )
  250.        (infos)
  251.    )
  252. )
  253.  
  254. (if (BITAND prgbitmap 4)
  255.    (copyfiles
  256.       (prompt "")
  257.       (help "")
  258.        (source "tools/CheckSpace10.lha")
  259.        (dest (tackon destdir "Tools") )
  260.        (infos)
  261.    )
  262. )
  263.  
  264. (if
  265.     (askbool
  266.         (prompt "Do you want to copy the included ARexx scripts?")
  267.         (help "Several ARexx scripts are included with CrashMail. They "
  268.               "are small programs that might be useful to you...")
  269.         (default 1)
  270.     )
  271.     (
  272.         (copyfiles
  273.             (source "Rexx")
  274.             (dest (tackon destdir "Rexx"))
  275.             (all)
  276.          (infos)
  277.         )
  278.     )
  279. )
  280.  
  281. (complete 100)
  282.  
  283. (message "CrashMail is now installed. Now you should "
  284.          "start CrashPrefs to configure CrashMail")
  285.